home *** CD-ROM | disk | FTP | other *** search
/ Do It! 1 / DO IT! Vol. 1 (1995)(Computer Corner)(DE)[!].iso / dpaint / dpaint_05 / macros / mühlen_bld.dprx
Text File  |  1995-10-16  |  2KB  |  97 lines
  1. /* DPaint Generated ARexx Macro, HIPPO BOOKS, Juni 1995 */
  2.  
  3. ADDRESS DPAINT.1
  4.  
  5. SETSCREENFORMAT MODEID 21000 SCREENW 368 SCREENH 283 PAGEW 368 PAGEH 283 
  6. COLORS 32 NOBACK NORETAIN
  7. SETRGB 0 0 0 0 
  8. SETRGB 15 255 255 255
  9. SETRGB 14 254 254 254
  10. LOCKGUI
  11. PANEL OFF
  12. PERPSPECTIVE RESET
  13. CENTERPERSP 184 141
  14. EXITPERSP
  15. SETPEN 7
  16. DELETEFRAMES ALL
  17. CLEAR CURRENT
  18. SETFGCOLOR 15
  19. FILL 0 0
  20. ADDFRAMES NUMBER 1
  21. GOTOFRAME NUMBER 2
  22. SETFGCOLOR 14  
  23. LINE 0 141 367 141
  24. LINE 184 282 184 0
  25. SWAPPICTOSPARE
  26. LINE 0 156 367 156
  27. BRUSH 
  28. BRUSH 
  29. BRUSH 
  30. 367 156 
  31. MBUTTONS MENUDOWN 
  32. MBUTTONS MENUUP 
  33. ROTATEBRUSH90
  34. ROTATEHANDLE
  35. ROTATEHANDLE
  36. ROTATEHANDLE
  37. SWAPPICTOSPARE
  38.  
  39. COLOR
  40. SETFRAMES NUMBER 31 
  41. GOTOFRAME NUMBER 2
  42.  
  43. MOVETO X 184 Y 141 
  44. COLOR
  45. MBUTTONS SELECTDOWN
  46. MBUTTONS SELECTUP 
  47. SETMOVECOORDS DX 0 DY 0 DZ 0 AX 0 AY 0 AZ 90 NODISPBRUSH ANGBRUSH NOCYCLIC 
  48. SETMOVEOPTS SLOWIN 0 SLOWOUT 0 COUNT 30 GOFROM FORWARD 
  49. SETMOVEFADE START 0 END 0 
  50. RECORDMOVE DRAW 
  51. GOTOFRAME NUMBER 2
  52. MOVETO X 184 Y 141 
  53. ROTATEBRUSH90
  54. MBUTTONS SELECTDOWN
  55. MBUTTONS SELECTUP 
  56. SETMOVECOORDS DX 0 DY 0 DZ 0 AX 0 AY 0 AZ 90 NODISPBRUSH ANGBRUSH NOCYCLIC 
  57. SEBTMOVEOPTS SLOWIN 0 SLOWOUT 0 COUNT 30 GOFROM FORWARD 
  58. SETMOVEFADE START 0 END 0 
  59. RECORDMOVE DRAW 
  60. GOTOFRAME NUMBER 2
  61. MOVETO X 184 Y 141 
  62. ROTATEBRUSH90
  63. MBUTTONS SELECTDOWN
  64. MBUTTONS SELECTUP 
  65. SETMOVECOORDS DX 0 DY 0 DZ 0 AX 0 AY 0 AZ 90 NODISPBRUSH ANGBRUSH NOCYCLIC 
  66. SEBTMOVEOPTS SLOWIN 0 SLOWOUT 0 COUNT 30 GOFROM FORWARD 
  67. SETMOVEFADE START 0 END 0 
  68. RECORDMOVE DRAW 
  69. GOTOFRAME NUMBER 2
  70.  
  71. MOVETO X 184 Y 141 
  72. ROTATEBRUSH90
  73. MBUTTONS SELECTDOWN
  74. MBUTTONS SELECTUP 
  75. SETMOVECOORDS DX 0 DY 0 DZ 0 AX 0 AY 0 AZ 90 NODISPBRUSH ANGBRUSH NOCYCLIC 
  76. SEBTMOVEOPTS SLOWIN 0 SLOWOUT 0 COUNT 30 GOFROM FORWARD 
  77. SETMOVEFADE START 0 END 0 
  78. RECORDMOVE DRAW 
  79. SETFGCOLOR 0
  80. GOTOFRAME NUMBER 2
  81. DO I=1 TO 30
  82.   FILL 188 0
  83.   FILL 365 142
  84.   FILL 180 282
  85.   FILL 2 139
  86.   NEXTFRAME
  87. END
  88. SETPEN 0
  89. GOTOFRAME END
  90. CLEAR CURRENT
  91. GOTOFRAME NUMBER 2
  92. DELETEFRAMES CURRENT
  93. GOTOFRAME START
  94. SETPEN 0
  95. PANEL ON
  96. UNLOCKGUI
  97.